home *** CD-ROM | disk | FTP | other *** search
/ Merciful 4 / Merciful - Disc 4.iso / utilities / setppview < prev   
Encoding:
Text File  |  1996-11-07  |  1.7 KB  |  86 lines
  1. .k ""
  2. .bra {
  3. .ket }
  4.  
  5. Assign >NIL: PPaintCD: EXISTS
  6. If WARN
  7.   Assign >NIL: PPaintCD: /
  8. EndIf
  9.  
  10. Assign PPAINTCDINST:
  11.  
  12. If EXISTS SYS:Utilities/Installer
  13.   Failat 21
  14.   Version >NIL: SYS:Utilities/Installer
  15.   If FAIL
  16.     PPaintCD:H/2/Deplode >NIL: SYS:Utilities/Installer T:Installer
  17.     Version >NIL: T:Installer
  18.     If NOT FAIL
  19.       Version >NIL: T:Installer 1 24
  20.       If NOT WARN
  21.         Assign PPAINTCDINST: SYS:Utilities
  22.       EndIf
  23.     EndIf
  24.     Delete >NIL: T:Installer
  25.   Else
  26.     Version >NIL: SYS:Utilities/Installer 1 24
  27.     If NOT WARN
  28.       Assign PPAINTCDINST: SYS:Utilities
  29.     EndIf
  30.   EndIf
  31.   Failat 10
  32. EndIf
  33.  
  34. Assign >NIL: PPAINTCDINST: EXISTS
  35. If WARN
  36.   If EXISTS C:Installer
  37.     Failat 21
  38.     Version >NIL: C:Installer
  39.     If FAIL
  40.       PPaintCD:H/2/Deplode >NIL: C:Installer T:Installer
  41.       Version >NIL: T:Installer
  42.       If NOT FAIL
  43.         Version >NIL: T:Installer 1 24
  44.         If NOT WARN
  45.           Assign PPAINTCDINST: C:
  46.         EndIf
  47.       EndIf
  48.       Delete >NIL: T:Installer
  49.     Else
  50.       Version >NIL: C:Installer 1 24
  51.       If NOT WARN
  52.         Assign PPAINTCDINST: C:
  53.       EndIf
  54.     EndIf
  55.     Failat 10
  56.   EndIf
  57. EndIf
  58.  
  59. Assign >NIL: PPAINTCDINST: EXISTS
  60. If WARN
  61.   Version >NIL: icon.library 38
  62.   If WARN
  63.     Assign PPAINTCDINST: PPaintCD:H/6/1/1
  64.   Else
  65.     Assign PPAINTCDINST: PPaintCD:H/6/1/2
  66.   EndIf
  67. EndIf
  68.  
  69. If NOT EXISTS ENV:Language
  70.   SetEnv Language english
  71. EndIf
  72.  
  73. If $Language EQ "deutsch"
  74.   PPaintCD:H/2/RunIcon PPaintCD:H/6/0/2/SetPPView.deu
  75. Else
  76.   If $Language EQ "français"
  77.     PPaintCD:H/2/RunIcon PPaintCD:H/6/0/2/SetPPView.fra
  78.   Else
  79.     If $Language EQ "italiano"
  80.       PPaintCD:H/2/RunIcon PPaintCD:H/6/0/2/SetPPView.ita
  81.     Else
  82.       PPaintCD:H/2/RunIcon PPaintCD:H/6/0/2/SetPPView.eng
  83.     EndIf
  84.   EndIf
  85. EndIf
  86.